From f4a1b4283bf09475e5255a889a34784501ad2fc0 Mon Sep 17 00:00:00 2001 From: justbur Date: Mon, 21 Dec 2015 12:12:29 -0500 Subject: [PATCH] Fix C-h prompt for show-keymap commands --- which-key.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index f21fd23fcd6..a952a9831dc 100644 --- a/which-key.el +++ b/which-key.el @@ -1796,7 +1796,10 @@ prefix) if `which-key-use-C-h-commands' is non nil." (let* ((prefix-keys (key-description which-key--current-prefix)) (full-prefix (which-key--full-prefix prefix-keys current-prefix-arg t)) (prompt (concat (when (string-equal prefix-keys "") - (propertize " Top-level bindings" 'face 'which-key-note-face)) + (propertize (concat " " + (or which-key--current-show-keymap-name + "Top-level bindings")) + 'face 'which-key-note-face)) full-prefix (propertize (substitute-command-keys -- 2.30.2